home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
nan_news
/
vol2
/
no4
/
genhelp.prg
< prev
next >
Wrap
Text File
|
1988-05-18
|
867b
|
35 lines
* Program: Genhelp.prg
* Author: Don L. Powells
* Version: Clipper Summer 87
* Copyright (c) Nantucket Corp.
*
SET SCOREBOARD OFF
SET PROCEDURE TO HELP && Compile HELP.PRG
SET PROCEDURE TO HELPRITE && Compile HELPRITE.PRG
SET KEY -30 TO HELPRITE && Assign Alt-F1 to HELPRITE
DO WHILE LASTKEY() <> 27
CLEAR
STORE SPACE(10) TO memvar1,memvar2,memvar3
SCROLL(1,0,24,79,0)
@ 1,26 TO 3,52 DOUBLE
CENTER(2,"G E N E R I C H E L P")
CENTER(5,"Press F1 for Help")
@ 10,10 SAY "Enter memvar1 " GET memvar1
@ 12,10 SAY "Enter memvar2 " GET memvar2
@ 14,10 SAY "Enter memvar3 " GET memvar3
READ
WAIT "Press <ESC> to Quit"
ENDDO
RETURN
FUNCTION Center
PARAMETERS trow,in_string
IF LEN(in_string)>=80
@ trow,0 SAY in_string
ELSE
@ trow,(80 - LEN(in_string))/2 SAY in_string
ENDIF
RETURN (.T.)